input <- mtcars[,c('wt','mpg')]
png(file='plot.png')
plot(x=input$wt,y=input$mpg,
     xlab='Weight',
     ylab='Milage',
     xlim=c(2.5,5),
     ylim=c(15,30),
     main='Weight vs Milage'
)
dev.off()

png(file='matrix.png')
pairs(~wt+mpg+disp+cyl,data=mtcars,main='Scatterplots')
dev.off()
